home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / libs / tool7v13 / demovga.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1994-09-25  |  903 b   |  37 lines
  1. Program DemoVGA256;
  2.  
  3. { Purpose....... Demonstrates the use of the following units: vga256
  4.   Comments...... None
  5.   Author........ Thayne Breetzke
  6.   Date.......... 22 March 1994                                               }
  7.  
  8. Uses
  9.   Crt,
  10.   Screen,
  11.   Strings,
  12.   Cursor,
  13.   Windows,
  14.   Vga256;
  15.  
  16. Var
  17.   Key      : Char;
  18.   Extended : Boolean;
  19.   Pal      : PaletteType;
  20.  
  21. Begin
  22.   TextAttr := 7;
  23.   CursorOff;
  24.   GetPalette(Pal);
  25.   FadeOut(0,0,0,0);
  26.   ClearArea(1,1,80,25,7,'▒');
  27.   DrawBox(4,2,77,4,'','',DoubleFrame,15+1*16,14+1*16,True);
  28.   WriteMem(5,3,Center('The "Complete" Borland Turbo Pascal 6.0 Toolbox',72));
  29.   DrawBox(16,13,65,17,'',' Press any key to continue ',SingleFrame,15+7*16,15+7*16,True);
  30.   WriteXY(27,15,'Demonstrating fade routines',0+7*16);
  31.   FadeIn(Pal,10);
  32.   Repeat until KeyPressed;
  33.   FadeOut(0,0,0,10);
  34.   ClrScr;
  35.   SetPalette(Pal);
  36.   CursorOn(False)
  37. end.